﻿Imports MySql.Data.MySqlClient
Imports CapaNegocio
Imports System.Windows.Forms
Imports System.Net

Module mdlVariables
    '' Maximo de intentos de inicio de sesion
    'Public maxIntentos As Integer = 3

    ' '' Instanciando Formularios
    ''mAdministracion
    'Public usuario As New frmUsuario
    ''mArchivo
    'Public perfil As New frmPerfil
    ''mAyuda
    'Public acerca As New frmAcercaIlab
    'Public contactar As New frmContactarDesarrolladores
    'Public informacion As New frmInformacionDesarrolladores
    'Public manual As New frmManualUsuario
    ''mGestion
    'Public examen As New frmExamen
    'Public inventario As New frmInventario
    'Public paciente As New frmPaciente
    ''mReporte
    'Public reporte As New frmReporte
    ''Calendario
    'Public calendar As New frmCalendario
    ''Inicio
    'Public inicio As New frmInicio
    ''Sistema
    'Public sistema As New frmSistema

    '' Estado Formularios -> estado por defecto de formularios
    'madministracion
    Public frmuser As Boolean = False
    'mArchivo
    Public frmprofile As Boolean = False
    'mAyuda
    Public frmabout As Boolean = False
    Public frmcontact As Boolean = False
    Public frminformation As Boolean = False
    Public frmmanual As Boolean = False
    'mGestion
    Public frmtest As Boolean = False
    Public frminventory As Boolean = False
    Public frmpatient As Boolean = False
    'mReporte
    Public frmreport As Boolean = False

    ''Clases -> instancia de clases
    Public cU As clsUsuario = New clsUsuario()
    Public cI As clsInventario = New clsInventario()
    Public cP As clsPaciente = New clsPaciente()
    Public cE As clsExamen = New clsExamen()

    ''Datos de Red
    Dim dir As Net.Dns
    Public pc As String = dir.GetHostName 'Nombre de la pc (host)
    Public IPs As Net.IPHostEntry = dir.GetHostByName(pc) 'Direcciones de Red
    Public ip As String = IPs.AddressList(0).ToString 'Direccion de Red usada
    Public usuariopc As String = Environment.UserName  'Nombre del usuario de la pc (userhost)

    'Variable de Focus de Formulario
    Public focusfrm As Boolean


    ''Variable para Editar Examen
    Public varCodEx As Integer

    Public lexamenglobal As New frmListaExamen()
    Public examen As New frmGestionarExamen

    Public cB As clsBoleta = New clsBoleta()

    'variables de conexion
    Public SERV, USU, PASS, BD As String

    Public cC As New clsConexion
    Public cadenacon As String
    Public rpt_tipo_Examen As Integer
    Public rpt_frm As Boolean = False



End Module

